home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / Misc / TextloaderTNG / Rexx / For_ScanQuix / pagestream3 / macros / ScanImageBME.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1999-03-03  |  954 b   |  55 lines
  1. /* $VER: ScanImage.rexx 1.0 for BME V2.0f © by Jochen Grus (04.09.96) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS 'BME'
  6.  
  7. options failat 25     /* ScanToDisk returns 0 or 20 */
  8.  
  9.  
  10. tempfile='T:PGS_ScannnedImage'
  11.  
  12. ok=1
  13. call SCAN()           /* Scans the image into a temporary file */
  14. call IMPORTGRAPHIC()  /* Loads Image into BME */
  15. call DELETEFILE()     /* Removes temporary image file */
  16.  
  17. EXIT
  18.  
  19.  
  20.  
  21. SCAN:
  22. /* Scans the image into a temporary file using the program "ScanToDisk". */
  23.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  24.     ok=0
  25.     return
  26.   end
  27.  
  28.   pragma('DIRECTORY',READLN('path'))
  29.   address command 'ScanQuix3/ScanToDisk FILE="'tempfile'" TRUECOLOR NOICONS NOGUI PUBSCREEN=BME'
  30.   if RC>=5 then do
  31.     ok=0
  32.     return
  33.   end
  34.  
  35. return
  36.  
  37.  
  38.  
  39. IMPORTGRAPHIC:
  40. /* Loads the image into BME */
  41.   if ok=0 then
  42.     return
  43.  
  44.   'open FILE 'tempfile' FILTER IFFILBM'
  45.  
  46. return
  47.  
  48.  
  49.  
  50. DELETEFILE:
  51. /* removes temporary file */
  52.   address command 'delete >NIL: 'tempfile
  53.  
  54. return
  55.